home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 208 / 208.d81 / sound phrases (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  394 lines
  1. 5 printchr$(14)
  2. 50 gosub10001
  3. 100 print"[147]"
  4. 110 print"             [211][207][213][206][196][160][208][200][210][193][211][197][211] "
  5. 120 print"[212]ype the phrase you want to hear."
  6. 130 inputk$
  7. 140 ifk$=""thenrun100
  8. 150 for cq=1tolen(k$):l$=mid$(k$,cq,1)
  9. 160 ifl$>chr$(127)thenl$=chr$(asc(l$)-128)
  10. 165 ifl$<"a"then220
  11. 166 ifl$>"z"then220
  12. 167 so=asc(l$)-64
  13. 170 onsogosub270,400,530,660,800,930,1060,1190,1330
  14. 180 so=so-9:ifso<1then220
  15. 190 onsogosub1470,1620,1770,1920,2040,2160,2270,2390
  16. 200 so=so-8:ifso<1then220
  17. 210 onsogosub2500,2610,2720,2830,2960,3090,3220,3350,3500
  18. 220 next
  19. 230 print:print"[215]ould you like to try another?"
  20. 240 getk$:ifk$=""then240
  21. 250 ifk$<>"n"thenrun100
  22. 260 goto 40000 : ***  ***
  23. 270 rem a sound routine
  24. 280 :
  25. 290 s=54272
  26. 300 poke s+24,15
  27. 310 poke s+6,240
  28. 320 poke s+4,17
  29. 330 for a=1 to 10
  30. 340 for x= 1 to 255  step 25
  31. 350 poke s+1,x
  32. 360 next x
  33. 370 next a
  34. 380 poke s+4,32
  35. 390 return
  36. 400 rem b sound routine
  37. 410 :
  38. 420 s=54272
  39. 430 poke s+24,15
  40. 440 poke s+6,240
  41. 450 poke s+4,17
  42. 460 for a=1 to 10
  43. 470 for x= 1 to 255  step 25
  44. 480 poke s+1,x/2
  45. 490 next x
  46. 500 next a
  47. 510 poke s+4,16
  48. 520 return
  49. 530 rem c sound routine
  50. 540 :
  51. 550 s=54272
  52. 560 poke s+24,15
  53. 570 poke s+6,240
  54. 580 poke s+4,17
  55. 590 for a=1 to 10
  56. 600 for x=122 to 1 step -18
  57. 610 poke s+1,x/2
  58. 620 next x
  59. 630 next a
  60. 640 poke s+4,16
  61. 650 return
  62. 660 rem d sound routine
  63. 670 :
  64. 680 s=54272
  65. 690 poke s+24,15
  66. 700 poke s+6,240
  67. 710 poke s+4,17
  68. 720 for a=1 to 6
  69. 730 x=14
  70. 740 poke s+1,x
  71. 750 for y=1tot12:next
  72. 760 x=221:pokes+1,x:fory=1to12:next
  73. 770 next a
  74. 780 poke s+4,16
  75. 790 return
  76. 800 rem e sound routine
  77. 810 :
  78. 820 s=54272
  79. 830 poke s+24,15
  80. 840 poke s+6,240
  81. 850 poke s+4,17
  82. 860 for a=1 to 5
  83. 870 for x=122 to 1 step -18
  84. 880 poke s+1,x/2 :pokes+1,255-x/2
  85. 890 next x
  86. 900 next a
  87. 910 poke s+4,16
  88. 920 return
  89. 930 rem f sound routine
  90. 940 :
  91. 950 s=54272
  92. 960 poke s+24,15
  93. 970 poke s+6,240
  94. 980 poke s+4,17
  95. 990 for a=1 to 5
  96. 1000 for x=122 to 1 step -55
  97. 1010 poke s+1,x/2 :pokes+1,255-x/2
  98. 1020 next x
  99. 1030 next a
  100. 1040 poke s+4,16
  101. 1050 return
  102. 1060 rem g sound routine
  103. 1070 :
  104. 1080 s=54272
  105. 1090 poke s+24,15
  106. 1100 poke s+6,240
  107. 1110 poke s+4,17
  108. 1120 for a=1 to 5
  109. 1130 for x=255 to 1 step -55
  110. 1140 poke s+1,x/2 :pokes+1,255-x/2
  111. 1150 next x
  112. 1160 next a
  113. 1170 poke s+4,16
  114. 1180 return
  115. 1190 rem h sound routine
  116. 1200 :
  117. 1210 s=54272
  118. 1220 poke s+24,15
  119. 1230 poke s+6,240
  120. 1240 poke s+4,17
  121. 1250 for a=1 to 5
  122. 1260 for x=255 to 1 step -55
  123. 1270 poke s+1,x/2 :pokes+1,255-x/2
  124. 1280 pokes+1,rnd(1)*255
  125. 1290 next x
  126. 1300 next a
  127. 1310 poke s+4,16
  128. 1320 return
  129. 1330 rem i sound routine
  130. 1340 :
  131. 1350 s=54272
  132. 1360 poke s+24,15
  133. 1370 poke s+5,190
  134. 1380 poke s+6,25
  135. 1390 for x= 155 to 10 step -9
  136. 1400 poke s+1,x
  137. 1410 poke s+4,17
  138. 1420 for d=1 to 4: next d
  139. 1430 pokes+1,33
  140. 1440 next x
  141. 1450 poke s+4,16
  142. 1460 return
  143. 1470 rem j sound routine
  144. 1480 :
  145. 1490 s=54272
  146. 1500 poke s+24,15
  147. 1510 poke s+5,190
  148. 1520 poke s+6,25
  149. 1530 for x= 127 to 10 step -9
  150. 1540 poke s+1,x
  151. 1550 pokes+1,2*x
  152. 1560 poke s+4,17
  153. 1570 for d=1 to 4: next d
  154. 1580 pokes+1,4
  155. 1590 next x
  156. 1600 poke s+4,16
  157. 1610 return
  158. 1620 rem k sound routine
  159. 1630 :
  160. 1640 s=54272
  161. 1650 poke s+24,15
  162. 1660 poke s+5,190
  163. 1670 poke s+6,25
  164. 1680 for x= 127 to 10 step -9
  165. 1690 poke s+1,x
  166. 1700 pokes+1,255-x
  167. 1710 poke s+4,17
  168. 1720 for d=1 to 4: next d
  169. 1730 pokes+1,4
  170. 1740 next x
  171. 1750 poke s+4,16
  172. 1760 return
  173. 1770 rem l sound routine
  174. 1780 :
  175. 1790 s=54272
  176. 1800 poke s+24,15
  177. 1810 poke s+5,190
  178. 1820 poke s+6,25
  179. 1830 for x= 127 to 10 step -17
  180. 1840 poke s+1,2*x
  181. 1850 pokes+1,129-x
  182. 1860 poke s+4,17
  183. 1870 for d=1 to 4: next d
  184. 1880 pokes+1,4
  185. 1890 next x
  186. 1900 poke s+4,16
  187. 1910 return
  188. 1920 rem m sound routine
  189. 1930 :
  190. 1940 s=54272
  191. 1950 poke s+5,9
  192. 1960 poke s+6,9
  193. 1970 poke s+24,15
  194. 1980 poke s+4,17
  195. 1990 for d=1 to 40
  196. 2000 pokes+1,62-d
  197. 2010 poke s+4,17 :nextd
  198. 2020 poke s+4,16
  199. 2030 return
  200. 2040 rem n sound routine
  201. 2050 :
  202. 2060 s=54272
  203. 2070 poke s+5,9
  204. 2080 poke s+6,9
  205. 2090 poke s+24,15
  206. 2100 poke s+4,17
  207. 2110 for d=1 to 40
  208. 2120 pokes+1,62-d:pokes+1,d
  209. 2130 poke s+4,17 :nextd
  210. 2140 poke s+4,16
  211. 2150 return
  212. 2160 rem o sound routine
  213. 2170 :
  214. 2180 s=54272
  215. 2190 poke s+1,14
  216. 2200 poke s+5,3
  217. 2210 poke s+6,255-15
  218. 2220 poke s+24,15
  219. 2230 poke s+4,17
  220. 2240 for d=1 to 40step4:pokes+1,40-d:pokes+4,17: next d
  221. 2250 poke s+4,16
  222. 2260 return
  223. 2270 rem p sound routine
  224. 2280 :
  225. 2290 s=54272
  226. 2300 poke s+1,14
  227. 2310 poke s+5,3
  228. 2320 poke s+6,255-15
  229. 2330 poke s+24,15
  230. 2340 poke s+4,17
  231. 2350 for d=40to1step-4:pokes+1,40-d:pokes+4,17: next d
  232. 2360 poke s+4,16
  233. 2370 return
  234. 2380 forcc=1to4: gosub65535:gosub2390:next
  235. 2390 rem q sound routine
  236. 2400 :
  237. 2410 s=54272
  238. 2420 poke s+1,14
  239. 2430 poke s+5,3
  240. 2440 poke s+6,255-15
  241. 2450 poke s+24,15
  242. 2460 poke s+4,17
  243. 2470 for d=41 to 80step 4:pokes+1,80+d:pokes+4,17: next d
  244. 2480 poke s+4,16
  245. 2490 return
  246. 2500 rem r sound routine
  247. 2510 :
  248. 2520 s=54272
  249. 2530 poke s+1,14
  250. 2540 poke s+5,3
  251. 2550 poke s+6,255-15
  252. 2560 poke s+24,15
  253. 2570 poke s+4,17
  254. 2580 for d=11 to180step22:pokes+4,d :pokes+1,80+d:pokes+4,17: next d
  255. 2590 poke s+4,16
  256. 2600 return
  257. 2610 rem s sound routine
  258. 2620 :
  259. 2630 s=54272
  260. 2640 poke s+1,14
  261. 2650 poke s+5,3
  262. 2660 poke s+6,255-15
  263. 2670 poke s+24,15
  264. 2680 poke s+4,17
  265. 2690 for d=11 to180step22:pokes+1,d :pokes+4,33 :pokes+1,80+d:pokes+4,17: next d
  266. 2700 poke s+4,16
  267. 2710 return
  268. 2720 rem t sound routine
  269. 2730 :
  270. 2740 s=54272
  271. 2750 poke s+1,14
  272. 2760 poke s+5,3
  273. 2770 poke s+6,255-15
  274. 2780 poke s+24,15
  275. 2790 poke s+4,17
  276. 2800 ford=11to110step8:pokes+1,d:pokes+4,63:pokes+1,255-d:pokes+4,17:next
  277. 2810 poke s+4,16
  278. 2820 return
  279. 2830 rem u sound routine
  280. 2840 :
  281. 2850 s=54272
  282. 2860 poke s+1,14
  283. 2870 poke s+5,3
  284. 2880 poke s+6,240
  285. 2890 poke s+24,15
  286. 2900 poke s+4,17
  287. 2910 ford=4 to37step8:pokes+1,d:pokes+4,63:pokes+1,255-d:pokes+4,17
  288. 2920 pokes+1,5:pokes+4,33:ford1=1to8:next
  289. 2930 nextd
  290. 2940 poke s+4,16
  291. 2950 return
  292. 2960 rem v sound routine
  293. 2970 :
  294. 2980 s=54272
  295. 2990 poke s+1,14
  296. 3000 poke s+5,3
  297. 3010 poke s+6,240
  298. 3020 poke s+24,15
  299. 3030 poke s+4,17
  300. 3040 ford=2to8:pokes+1,d:pokes+4,33:pokes+1,d*2:pokes+4,17
  301. 3050 pokes+1,d*4:pokes+4,33:pokes+1,d*8:pokes+4,17
  302. 3060 nextd
  303. 3070 poke s+4,16
  304. 3080 return
  305. 3090 rem w sound routine
  306. 3100 :
  307. 3110 s=54272
  308. 3120 poke s+1,14
  309. 3130 poke s+5,3
  310. 3140 poke s+6,240
  311. 3150 poke s+24,15
  312. 3160 poke s+4,17
  313. 3170 ford=8to2step-1:pokes+1,d:pokes+4,33:pokes+1,d*2:pokes+4,17
  314. 3180 pokes+1,d*4:pokes+4,33:pokes+1,d*8:pokes+4,17
  315. 3190 nextd
  316. 3200 poke s+4,16
  317. 3210 return
  318. 3220 rem x sound routine
  319. 3230 :
  320. 3240 s=54272
  321. 3250 poke s+1,14
  322. 3260 poke s+5,3
  323. 3270 poke s+6,240
  324. 3280 poke s+24,15
  325. 3290 poke s+4,17
  326. 3300 ford=8to2step-1:pokes+1,220-d:pokes+4,33:pokes+1,d*2:pokes+4,17
  327. 3310 pokes+1,220-d*4:pokes+4,33:pokes+1,d*8:pokes+4,17
  328. 3320 nextd
  329. 3330 poke s+4,16
  330. 3340 return
  331. 3350 rem y sound routine
  332. 3360 :
  333. 3370 s=54272
  334. 3380 poke s+1,14
  335. 3390 poke s+5,3
  336. 3400 poke s+6,240
  337. 3410 poke s+24,15
  338. 3420 poke s+4,17
  339. 3430 ford=6to10
  340. 3440 ford1=1to12stepsin(d)
  341. 3450 pokes+1,4*d1:pokes+4,17
  342. 3460 next
  343. 3470 nextd
  344. 3480 poke s+4,16
  345. 3490 return
  346. 3500 rem z sound routine
  347. 3510 :
  348. 3520 s=54272
  349. 3530 poke s+1,14
  350. 3540 poke s+5,3
  351. 3550 poke s+6,240
  352. 3560 poke s+24,15
  353. 3570 poke s+4,17
  354. 3580 ford=6to10
  355. 3590 ford1=1to12steplog(d)
  356. 3600 pokes+1,4*d1:pokes+4,17
  357. 3610 next
  358. 3620 nextd
  359. 3630 poke s+4,16
  360. 3640 return
  361. 10000 d=peek(186):n$="sound phrases":open15,d,15,"s0:"+n$:close15:saven$,d:end
  362. 10001 print"[147]":poke53281,1:poke53280,4
  363. 10005 print"             [211][207][213][206][196][160][208][200][210][193][211][197][211]"
  364. 10010 print:print"                  by"
  365. 10015 print:print"              [202]immy [215]eiler
  366. 10020 [151]783,[194](783)[175]254
  367. 10025 [151]781,23:[151]782,12:[158]65520:[153]"<press that key>"
  368. 10030 [151]198,0:[146]198,1:[161]a$
  369. 10040 [153]"load  (NULL)ound (NULL)hrases is a program that does":[153]
  370. 10042 [153]"just what it says it does.  right$t makes ":[153]
  371. 10044 [153]"sounds out of phrases you type in.  (NULL)he":[153]
  372. 10046 [153]"string you input is taken one character":[153]
  373. 10048 [153]"at a time and the appropriate sound for":[153]
  374. 10050 [153]"that character is made.":[153]
  375. 10052 [153]:[153]:[153]:[153]:[153]"        right$t's really quite simple."
  376. 10054 [153]"            chr$ive it a try!!"
  377. 10060 [151]783,[194](783)[175]254
  378. 10065 [151]781,23:[151]782,11:[158]65520:[153]"<press that key>"
  379. 10070 [151]198,0:[146]198,1:[161]a$
  380. 10080 [142]
  381. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  382. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  383. 40020 a